home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 2.iso
/
heat_tst
/
nif_mss.cfg
< prev
next >
Wrap
Text File
|
1991-10-19
|
42KB
|
1,531 lines
/*********************************************************************
/*
/* nif_mss.cfg : NIFTY-Serve Menu Service System
/*
/* TABSIZE = 4;
/*
/* 1991. 8.30 ver.0.99 By TARO
/* 1991. 9. 1 ver.0.99b By TARO
/* 1991.10. 1 ver.0.99c By TARO
/*
/*********************************************************************
/*====================================================================
/* 各メニューレベルに応じてジャンプ
/*
HOST_menu {
x0 = 512;
y0 = 40;
if ( MENU_LEVEL = 0 )
{ mss_top_menu()
} else if ( MENU_LEVEL = 10 )
{ mss_mail_menu()
} else if ( MENU_LEVEL = 20 )
{ mss_forum_menu()
} else if ( MENU_LEVEL = 21 )
{ mss_forum_cmd()
} else if ( MENU_LEVEL = 22 )
{ mss_room_cmd()
} else if ( MENU_LEVEL = 23 )
{ mss_bul_cmd()
} else if ( MENU_LEVEL = 24 )
{ mss_lib_cmd()
# } else if ( MENU_LEVEL = 25 ) /* リザーブ
# { mss_ann_cmd()
} else if ( MENU_LEVEL = 26 )
{ mss_rtc_cmd()
} else if ( MENU_LEVEL = 27 )
{ mss_opt_cmd()
} else if ( MENU_LEVEL = 30 )
{ mss_hp_menu()
} else if ( MENU_LEVEL = 40 )
{ mss_service_menu()
}
mos_cursor(81) /* ノーマル
}
mss_top_key { /* メニュー再呼び出し
/* [PF4] */
key("\\k6000")
}
mss_sysmes { /* システム行メッセージ
syslin_puts(C_CYAN,C_MBLACK,"NIFTY-Serve MSS: version 0.99")
}
mss_err { /* エラー表示
syslin_puts(C_RED,C_MBLACK,"NIFTY-Serve MSS: ERROR")
wind_close()
wind_size_set(296,40,336,104)
wind_open2("NIFTY-Serve MSS : ERROR")
wind_str_color(C_HRED)
echo("\(MSG)")
wait(10)
wind_close()
wind_init()
}
mss_chk_exp {
if ( NIF_MSS_FLG = 0 ) /* 初回
{ term_switch(1,">")
bk = 0;
term_puts("SET MENU OFF\r")
while ( bk = 0 )
{ wait(1)
if ( VAL ! 0 ) { bk = 1; }
term_switch(1,">SET MENU OFF",">")
if ( VAL = 1 )
{ bk = 1;
}
}
term_puts("SET PAGE OFF\r")
NIF_MSS_FLG = 1;
}
}
/*--------------------------------------------------------------------
/* プロンプトに応じてコマンドを実行する
/*
/* in: PROM プロンプト
/* CHG モード変更コマンド
/* CMD 実行コマンド
/*
mss_chk_prompt {
term_switch(3,PROM,">")
if ( VAL = 0 ) /* Prompt OK
{ term_puts( CMD )
} else if ( VAL = 1 ) /* ">"
{ mos_cursor(82) /* 時計カーソル
term_puts( CHG )
term_switch(30,PROM )
if ( VAL < 0 ) { mss_top_key(); return }
term_puts( CMD )
} else if ( VAL < 0 )
{ mss_top_key()
return
}
}
/*--------------------------------------------------------------------
/* サービス終了
/*
mss_off {
NIF_MSS_FLG = 0;
term_puts("OFF\r")
wind_close()
wind_size_set(288,40,344,80)
echo("\n NIFTY-Serve Menu Service System\n ご利用ありがとうございました。")
wait(3)
term_switch(30,"*","NO CARRIER")
if ( VAL = 0 )
{ term_puts("OFF\r")
}
wait(1)
wind_close()
wind_init()
}
/*********************************************************************
/* トップメニュー
/*********************************************************************
mss_top_menu {
mss_sysmes()
menu2_select(x0,y0, "TOP MENU",
"F:Forum フォーラム" , # 0
"M:Mail 電子メール" , # 1
"H:HP ホームパーティ" , # 2
"S:Service サービスコマンド", # 3
"O:Off NIFTY-Serve 終了", # 4
" ",
"C:Config MSS 各種設定" # 6
)
if ( VAL = 0 ) /* FORUM
{ MENU_LEVEL = 20;
mss_top_key()
} else if ( VAL = 1 ) /* MAIL
{ syslin_puts(C_GREEN,C_MBLACK,"MAIL:")
MENU_LEVEL = 10;
term_puts("MAIL\r")
mss_top_key()
} else if ( VAL = 2 ) /* HP
{ syslin_puts(C_GREEN,C_MBLACK,"HP:")
mos_cursor(82) /* 時計カーソル
MENU_LEVEL = 30;
term_puts("GO HP\r")
wait(3)
term_switch(30,">",">")
if ( VAL < 0 ) { return }
term_puts("1\r")
mss_top_key()
} else if ( VAL = 3 ) /* サービス
{ MENU_LEVEL = 40;
mss_top_key()
} else if ( VAL = 4 ) /* OFF 終了
{ menu_yes_no(x0,y0,C_YELLOW," 本当に終了しますか? ")
if ( VAL > 0 )
{ mss_off()
} else
{ mss_top_key()
}
} else if ( VAL = 6 ) /* MSS 各種設定
{ mss_setup()
host_top_key()
}
}
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
/* MSS 各種設定
/*
mss_setup {
bk = 0;
while ( bk = 0 )
{ menu2_select(x0,y0,"NIFTY-Serve MSS : 各種設定",
"9:top menu トップメニューに戻る" ,
"D:Download ディレクトリ [\(_NIF_DOWN_PATH)]" ,
"H:HP HP ID & PassWord"
)
if ( VAL < 1 )
{ bk = 1;
} else if ( VAL = 1 )
{ menu_input("_NIF_DOWN_PATH",128,x0,y0,C_CYAN,"ダウンロード用のディレクトリは?" )
if ( VAL > -1 )
{ if ( _NIF_DOWN_PATH ! "" )
{ strlen(_NIF_DOWN_PATH)
LEN = VAL;
dec(LEN)
strmid("TMP",_NIF_DOWN_PATH,LEN)
if( TMP ! "\\" )
{ _NIF_DOWN_PATH = "\(_NIF_DOWN_PATH)\\"
}
}
}
} else if ( VAL = 2 )
{ mss_hp_set()
}
}
}
/*********************************************************************
/* 電子メール・メニュー
/*********************************************************************
mss_mail_menu {
mss_sysmes()
MAIL = ""
PROM = "MAIL>"
CHG = "MAIL\r"
term_switch(1,"action:",">","MAIL>")
if ( VAL = 0 )
{ mss_mail_act()
return
}
menu2_select(x0,y0, "電子メール",
"9:top menu トップメニューに戻る" , # 0
"R:Read メールを読む" , # 1
"N:read New 新着メールを読む", # 2
"L:RVL,SDL 送・受信簿" , # 3
" ",
"W:Compose メールを出す" , # 5
"K:Delete 削除" , # 6
"U:Upload アップロード" , # 7
"D:Down ダウンロード" , # 8
"S:Store 保存" , # 9
"F:Forward 転送" , #10
" ",
"A:Action 返信コマンド" , #12
"B:Break 中断(ブレーク送出)" #13
)
if ( VAL = 0 )
{ MENU_LEVEL = 0;
mss_top_key()
} else if ( VAL = 1 ) /* READ 一覧
{ CMD = "READ\r"
mss_chk_prompt()
mos_cursor(82) /* 時計カーソル
wait(1)
term_switch(30,">", "◆")
if ( VAL = 0 )
{ menu_input("MAIL",80,x0,y0,C_CYAN,"メール番号は?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( MAIL = "") { mss_top_key(); return }
term_puts("\(MAIL)\r") /* 番号送信
}
} else if ( VAL = 2 ) /* READ NEW 未読メールを読む
{ CMD = "READ NEW\r"
mss_chk_prompt()
mss_top_key()
} else if ( VAL = 3 ) /* 送・受信簿
{ menu2_select(x0,y0,"★送・受信簿",
"R:RVL 受信簿",
"S:SDL 送信簿"
)
if ( VAL = 0 )
{ term_puts("RVL\r")
} else if ( VAL =1 )
{ term_puts("SDL\r")
}
mss_top_key()
} else if ( VAL = 5 ) /* 書き込み
{ CMD = "COM\r"
mss_chk_prompt()
} else if ( VAL = 6 ) /* 削除
{ menu_input("MAIL",80,x0,y0,C_CYAN,"削除するメール番号は?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( MAIL = "") { mss_top_key(); return }
CMD = "DELETE \(MAIL)\r"
mss_chk_prompt()
} else if ( VAL = 7 ) /* アップロード
{ CMD = "UPLOAD\r";
mss_chk_prompt()
} else if ( VAL = 8 ) /* ダウンロード
{ menu_input("MAIL",80,x0,y0,C_CYAN,"ダウンするメール番号は?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( MAIL = "") { mss_top_key(); return }
CMD = "DOWN \(MAIL)\r"
mss_chk_prompt()
} else if ( VAL = 9 ) /* STORE 保存
{ CMD = "STORE\r"
mss_chk_prompt()
} else if ( VAL = 10 ) /* FORWARD 転送
{ CMD = "FORWARD\r"
mss_chk_prompt()
} else if ( VAL = 12 ) /* 返信コマンド */
{ term_switch(1,"action:","MAIL>",">" )
if ( VAL = 0 )
{ mss_mail_act()
} else
{ MSG = "現状態では実行できません。"
mss_err()
mss_top_key()
}
} else if ( VAL = 13 ) /* Break
{ /* [SHIFT]+[PF9] [PF4]
key("\\k6504\\k6000")
}
}
mss_mail_act {
menu2_select(x0,y0,"★MAIL ACTION",
"D:Delete 削除 (+転送,+返信)",
"S:Save 保存",
"R:Reply 返信",
"F:Forward 転送",
"P:STORE パーソナルファイルに保存"
)
if ( VAL = 0 ) /* Delete
{ menu2_select(x0,y0,"★MAIL DELETE",
"K:Delete 削除",
"D:DR 削除+返信",
"F:DF 削除+転送"
)
if ( VAL = 0 ) { term_puts("DELETE\r"); }
else if ( VAL = 1 ) { term_puts("DR\r"); }
else if ( VAL = 2 ) { term_puts("DF\r"); }
else { mss_top_key(); return (-1); }
} else if ( VAL = 1 ) /* 保存
{ term_puts("SAVE\r")
mss_top_key()
return (-1);
} else if ( VAL = 2 ) /* 返信
{ term_puts("REPLAY\r")
} else if ( VAL = 3 ) /* 転送
{ term_puts("FORWARD\r")
} else if ( VAL = 4 ) /* パーソナルファイル保存
{ term_puts("STORE\r")
} else
{ mss_top_key();
return (-1);
}
wait(1)
return (0);
}
/*********************************************************************
/* フォーラム選択メニュー (LEVEL 20)
/*
mss_forum_menu {
mss_sysmes()
menu2_select(x0,y0, "フォーラム選択",
"9:top menu トップメニューに戻る",
"M:Menu フォーラムメニュー" ,
"G:Go GO コマンド",
" ",
"T:TOWNS TOWNS 関係" ,
"F:FM FM 関係" ,
"S:Software ソフトウェア関係" ,
"H:Hardware ハードウェア関係" ,
"A:Amusement 趣味・娯楽" ,
"E:ETC その他"
)
if ( VAL = 0 )
{ MENU_LEVEL = 0;
mss_top_key()
} else if ( VAL = 1 )
{ /* コマンド */
MENU_LEVEL = 21;
mss_top_key()
} else if ( VAL = 2 ) /* GO
{ menu_input("FORUM",9,x0,y0,C_CYAN, "フォーラム名は?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( FORUM = "" ) { mss_top_key(); return }
mss_forum_go()
mss_top_key();
} else if ( VAL = 4 ) /* TOWNS 関係
{ menu2_select(x0,y0,"★フォーラム:TOWNS",
"1:FTOWNS1 FMTOWNS フォーラム1 " ,
"2:FTOWNS2 FMTOWNS フォーラム2 (ビジュアル通信) "
)
if ( VAL = 0 ) { FORUM = "FTOWNS1"; mss_forum_go(); }
else if ( VAL = 1 ) { FORUM = "FTOWNS2"; mss_forum_go(); }
mss_top_key()
} else if ( VAL = 5 ) /* FM 関係
{ menu2_select(x0,y0,"★FM 関係フォーラム" ,
"I:FFMINFO FMフォーラム(総合案内)" ,
"U:FFMUSER FMフォーラム(ユーザー館)" ,
"P:FFMPRO FMフォーラム(プロフェッショナル) ",
"H:FFMHOB FMフォーラム(ホビー館)" ,
"A:FFMAV FMフォーラム(音楽・映像館)"
)
if ( VAL = 0 ) { FORUM = "FFMINFO"; mss_forum_go(); }
else if ( VAL = 1 ) { FORUM = "FFMUSER"; mss_forum_go(); }
else if ( VAL = 2 ) { FORUM = "FFMPRO" ; mss_forum_go(); }
else if ( VAL = 3 ) { FORUM = "FFMHOB" ; mss_forum_go(); }
else if ( VAL = 4 ) { FORUM = "FFMAV" ; mss_forum_go(); }
mss_top_key()
} else if ( VAL = 6 ) /* ソフトウェア
{ menu2_select(x0,y0,"★フォーラム:ソフトウェア",
"9:FOS9 OS-9フォーラム" ,
"U:FUNIX UNIXフォーラム" ,
"C:FC C言語フォーラム" ,
"L:FLABO ソフトウェア工房 " ,
"M:FGALM FGAL・総合" ,
"V:FGALAV FGAL・AV工房" ,
"G:FGALAG FGAL・AVギャラリー" ,
"H:FGALAT FGAL・AVシアター " ,
"A:FGALAM FGAL・アミューズメント" ,
"P:FGALAP FGAL・アプリケーション" ,
"B:FGALBT FGAL・ベストツール" ,
"S:FGALST FGAL・スーパーツール" ,
"W:FGALSW FGAL・シェアウェア" ,
"T:FGALTM FGAL・通信環境" ,
"O:FGALOFF FGAL・オフライン"
)
if ( VAL = 0 ) { FORUM = "FOS9" ; mss_forum_go(); }
else if ( VAL = 1 ) { FORUM = "FUNIX" ; mss_forum_go(); }
else if ( VAL = 2 ) { FORUM = "FC" ; mss_forum_go(); }
else if ( VAL = 3 ) { FORUM = "FLABO" ; mss_forum_go(); }
else if ( VAL = 4 ) { FORUM = "FGALM" ; mss_forum_go(); }
else if ( VAL = 5 ) { FORUM = "FGALAV" ; mss_forum_go(); }
else if ( VAL = 6 ) { FORUM = "FGALAG" ; mss_forum_go(); }
else if ( VAL = 7 ) { FORUM = "FGALAT" ; mss_forum_go(); }
else if ( VAL = 8 ) { FORUM = "FGALAM" ; mss_forum_go(); }
else if ( VAL = 9 ) { FORUM = "FGALAP" ; mss_forum_go(); }
else if ( VAL =10 ) { FORUM = "FGALBT" ; mss_forum_go(); }
else if ( VAL =11 ) { FORUM = "FGALST" ; mss_forum_go(); }
else if ( VAL =12 ) { FORUM = "FGALSW" ; mss_forum_go(); }
else if ( VAL =13 ) { FORUM = "FGALTM" ; mss_forum_go(); }
else if ( VAL =14 ) { FORUM = "FGALOFF"; mss_forum_go(); }
mss_top_key()
} else if ( VAL = 7 )
{ menu2_select(x0,y0,"★フォーラム:ハードウェア",
"I:FIBMPRO IBM Professionals Forum " ,
"S:FSHARP シャープUser'sフォーラム "
)
if ( VAL = 0 ) { FORUM = "FIBMPRO" ; mss_forum_go(); }
else if ( VAL = 1 ) { FORUM = "FSHARP" ; mss_forum_go(); }
mss_top_key()
} else if ( VAL = 8 )
{ /* 趣味・娯楽 */
menu2_select(x0,y0,"★フォーラム:趣味・娯楽",
"M:FMIDIUSR MIDIユーザーフォーラム" ,
"D:FMIDIDAT MIDIデーターフォーラム" ,
"S:FSEGA SEGA Forum" ,
"C:FCGAMEP パソコンゲームフォーラム" ,
"G:FCGAMEM ゲームマシンフォーラム"
)
if ( VAL = 0 ) { FORUM = "FMIDIUSR"; mss_forum_go(); }
else if ( VAL = 1 ) { FORUM = "FMIDIDAT"; mss_forum_go(); }
else if ( VAL = 2 ) { FORUM = "FSEGA" ; mss_forum_go(); }
else if ( VAL = 3 ) { FORUM = "FCGAMEP" ; mss_forum_go(); }
else if ( VAL = 4 ) { FORUM = "FCGAMEM" ; mss_forum_go(); }
mss_top_key()
} else if ( VAL = 9 )
{ menu2_select(x0,y0,"★フォーラム:その他",
" :何もなし…"
)
mss_top_key()
}
}
mss_forum_go {
syslin_puts(C_GREEN, C_MBLACK, "GO \(FORUM)")
mos_cursor(82) /* 時計カーソル
MENU_LEVEL = 21;
STR_CHK = "入会手続"
STR_FLG = 0;
term_puts("GO \(FORUM)\r")
bk = 0;
while ( bk = 0 )
{ wait(1)
if ( VAL ! 0 ) { bk = 1; }
term_instr(1,"GO",">", ">" )
if ( VAL > 0 )
{ term_switch(1,">","FORUM>")
if ( VAL > -1 )
{ bk = 1;
}
}
}
STR_CHK = ""
if ( STR_FLG ! 0 )
{ MSG = "このフォーラムには入会していません。"
mss_err()
MENU_LEVEL = 20;
return
}
term_switch(30,">","FORUM>")
if ( VAL = 0 ) /* ">"
{ term_puts("SET MENU OFF\r")
bk = 0;
while ( bk = 0 )
{ wait(1)
if ( VAL ! 0 ) { bk = 1; }
term_switch(1,">SET",">","FORUM>")
if ( VAL > 0 )
{ bk = 1;
}
}
term_puts("SET PAGE OFF\r")
bk = 0;
while ( bk = 0 )
{ wait(1)
if ( VAL ! 0 ) { bk = 1; }
term_switch(1,">SET",">","FORUM>")
if ( VAL > 0 )
{ bk = 1;
}
}
term_switch(1,">","FORUM>")
if ( VAL = 0 ) /* MENU OFF にしても"FORUM>"にならない
{ MSG = "直接入れないフォーラムです。"
mss_err()
MENU_LEVEL = 20;
return
}
}
}
/*====================================================================
/* フォーラム (LEVEL 21)
/*
mss_forum_cmd { /* LEVEL 21 */
mss_sysmes()
menu2_select(x0,y0, "フォーラム",
"F:select フォーラム選択に戻る",
"M:Mes 未読を読む" ,
"C:Confer 会議室" ,
"B:BBS 電子掲示板" ,
"L:Lib データライブラリ" ,
"A:Ann 案内を見る" ,
" " ,
"U:Ust フォーラム利用者表示",
"S:Send Sendを送る" ,
"R:Rtc リアルタイム会議室" ,
"M:syM シスオペ宛メール" ,
"T:seT 一時 設定変更" ,
"O:Opt オプション設定" ,
)
if ( VAL = 0 ) /* フォーラムメニューに戻る
{ MENU_LEVEL = 20;
mss_top_key()
} else if ( VAL = 1 ) /* 会議室の未読を読む
{ NIFTY_MES()
mss_top_key()
} else if ( VAL = 2 ) /* 会議室コマンド
{ MENU_LEVEL = 22;
term_puts("MES\r")
mss_top_key()
} else if ( VAL = 3 ) /* 電子掲示板
{ MENU_LEVEL = 23;
term_puts("BUL\r")
mss_top_key()
} else if ( VAL = 4 ) /* データライブラリ
{ MENU_LEVEL = 24;
term_puts("LIB\r")
mss_top_key()
} else if ( VAL = 5 ) /* フォーラム案内
{ syslin_puts(C_GREEN,C_MBLACK,"ANN:")
mos_cursor(82) /* 時計カーソル
term_puts("ANN\r")
term_switch(30,"情報","◆")
if ( VAL ! 0 ) { mss_top_key();return }
term_switch(30,">")
if ( VAL ! 0 ) { mss_top_key();return }
ANN = ""
menu_input("ANN",80,x0,y0,C_CYAN,"見たい情報番号は?")
if ( VAL < 0 ) { mss_top_key();return }
if ( ANN = "" ) { mss_top_key();return }
term_puts("\(ANN)\r")
} else if ( VAL = 7 ) /* フォーラム利用者を調べる
{ NIFTY_UST(0)
mss_top_key()
} else if ( VAL = 8 ) /* Send
{ menu_input("SEND_ID",9, x0,y0, C_CYAN, "SEND先のIDは?")
if ( VAL < 0 ) { mss_top_key();return }
if ( SEND_ID = "" ) { mss_top_key();return }
menu_input("SEND_MSG",256,x0,y0,C_CYAN,"メッセージは?")
if ( VAL < 0 ) { mss_top_key();return }
if ( SEND_MSG = "" ) { mss_top_key();return }
term_puts("SEND \(SEND_ID) \(SEND_MSG)\r")
mss_top_key()
} else if ( VAL = 9 ) /* リアルタイム会議
{ MENU_LEVEL = 26;
term_puts("RTC\r")
menu2_select(x0,y0,"★チャンネルは?",
"1: チャンネル 1 ",
"2: チャンネル 2 "
)
if ( VAL = 0 )
{ term_puts("1\r")
mss_top_key()
} else
{ term_puts("2\r")
mss_top_key()
}
} else if ( VAL = 10 ) /* システムオペ宛メール
{ term_puts("SYM\r")
} else if ( VAL = 11 ) /* 設定一時変更 */
{ menu2_select(x0,y0,"★フォーラム設定一時変更",
"1:Page ページ 制御 ON" ,
"2:Page ページ 制御 OFF" ,
"3:Menu メニュー表示 する" ,
"4:Menu メニュー表示 しない",
"5:Send SEND 受け付け" ,
"6:Send SEND 禁止"
)
if ( VAL = 0 ) { term_puts("SET PAGE ON\r" ) }
else if ( VAL = 1 ) { term_puts("SET PAGE OFF\r") }
else if ( VAL = 2 ) { term_puts("SET MENU ON\r" ) }
else if ( VAL = 3 ) { term_puts("SET MENU OFF\r") }
else if ( VAL = 4 ) { term_puts("SET SEND ON\r" ) }
else if ( VAL = 5 ) { term_puts("SET SEND OFF\r") }
mss_top_key()
} else if ( VAL = 12 ) /* オプション
{ MENU_LEVEL = 27;
term_puts("OPT\r")
mss_top_key()
}
}
/*--------------------------------------------------------------------
/* 会議室選択サブルーチン
/* in: TITLE
/* out: ROOM
/*
mss_room_select {
menu_select(x0,y0,TITLE,
"-会議室 1-",
"-会議室 2-",
"-会議室 3-",
"-会議室 4-",
"-会議室 5-",
"-会議室 6-",
"-会議室 7-",
"-会議室 8-",
"-会議室 9-",
"-会議室10-",
"-会議室11-",
"-会議室12-",
"-会議室13-",
"-会議室14-",
"-会議室15-",
"-会議室16-",
"-会議室17-",
"-会議室18-",
"-会議室19-",
"-会議室20-"
)
ROOM = VAL;
if ( ROOM > -1 )
{ inc(ROOM)
}
}
/*====================================================================
/* 会議室コマンド (LEVEL 22)
/*
mss_room_cmd { /* LEVEL 22
mss_sysmes()
ROOM = ""
menu2_select( x0,y0, "会議室コマンド",
"F:Forum フォーラムメニュー" ,
"X:RX 会議室移動" ,
"E:Mes 会議室一覧" ,
"M:Mode モード変更" ,
" ",
"1:next リターンキー" ,
"R:REF コメントを読む" ,
"O:RO 元の発言" ,
"N:No. 番号指定" ,
"D:Down ダウンロード" ,
" ",
"W:Write 書込・削除" ,
"4:SMail メールを出す" ,
" ",
"T:Title タイトル表示" ,
"C:RC 未読設定" ,
"B:Break 中断"
)
if ( VAL = 0 )
{ MENU_LEVEL = 21;
mss_top_key()
} else if ( VAL = 1 ) /* 会議室移動
{ TITLE = "会議室移動"
syslin_puts(C_GREEN,C_MBLACK,"会議室移動:")
mss_room_select()
if ( ROOM > 0 )
{ mos_cursor(82) /* 時計カーソル
term_switch(1,">","READ?(y/n)>", "CCS(N)>","CCS(R)>","CCS(B)>","next>")
if ( VAL < 0 ) { mss_top_key() }
if ( VAL < 2 )
{ term_puts("MES \(ROOM)\r")
} else if ( VAL > 0 )
{ term_puts("RX \(ROOM)\r")
}
}
mss_top_key()
} else if ( VAL = 2 )
{ TITLE = "会議室移動"
syslin_puts(C_GREEN,C_MBLACK,"会議室移動:")
mos_cursor(82) /* 時計カーソル
term_puts("MES\r")
wait(3)
term_switch(30,">")
if ( VAL < 0 ) { mss_top_key(); return }
mss_room_select()
if ( ROOM > 0 )
{ term_puts("\(ROOM)\r")
}
mss_top_key()
} else if ( VAL = 3 ) /* モード変更
{ menu2_select(x0,y0,"★モード変更",
"N:RN 通常モード" ,
"R:RR リバースモード" ,
"B:BR ブラウスモード" ,
"S:BRN ブラウスモード(未読)"
)
if ( VAL = 0 )
{ term_puts("RN\r")
} else if ( VAL = 1 )
{ menu_input("ROOM",80,x0,y0,C_CYAN,"RR : 発言番号は?")
if ( VAL < 0 ) { mss_top_key(); return }
term_puts("RR \(ROOM)\r")
} else if ( VAL = 2 )
{ menu_input("ROOM",80,x0,y0,C_CYAN,"BR : 発言番号は?")
if ( VAL < 0 ) { mss_top_key(); return }
term_puts("BR \(ROOM)\r")
} else if ( VAL = 3 )
{ term_puts("BRN\r")
}
mss_top_key()
} else if ( VAL = 5 ) /* [リターン]
{ term_puts("\r")
mss_top_key()
} else if ( VAL = 6 ) /* REF
{ term_puts("REF\r")
mss_top_key()
} else if ( VAL = 7 ) /* RO
{ term_puts("RO\r")
mss_top_key()
} else if ( VAL = 8 ) /* # number
{ ROOM = ""
menu_input("ROOM",80,x0,y0,C_CYAN,"表示したい発言番号を入力してください。")
if ( VAL < 0 ) { mss_top_key(); return }
if ( ROOM = "" ) { mss_top_key(); return }
term_puts("#\(ROOM)\r")
mss_top_key()
} else if ( VAL = 9 ) /* Down
{ menu2_select(x0,y0,"★会議室のダウンロード",
"N:down New 未読をダウンロード" ,
"D:down 指定の発言をダウンロード"
)
if ( VAL = 0 )
{ term_puts("DOWN NEW\r")
} else if ( VAL = 1 )
{ menu_input("ROOM",80,x0,y0,C_CYAN,"ダウンしたい発言番号を入力してください。")
if ( VAL < 0 ) { mss_top_key(); return }
if ( ROOM = "" ) { mss_top_key(); return }
term_puts("DOWN \(ROOM)\r")
} else
{ mss_top_key()
}
} else if ( VAL = 11 ) /* Say 書き込み
{ menu2_select(x0,y0,"★会議室書き込み",
"S:SAY 発言",
"R:RE コメントを付ける",
"D:RD 発言を削除する"
)
if ( VAL = 0 )
{ term_puts("SAY\r")
} else if ( VAL = 1 )
{ menu_input("ROOM",80,x0,y0,C_CYAN,"コメントを付ける発言番号を入力してください。")
if ( VAL < 0 ) { mss_top_key(); return }
if ( ROOM = "" ) { mss_top_key(); return }
term_puts("RE \(ROOM)\r")
} else if( VAL = 2 )
{ menu_input("ROOM",80,x0,y0,C_CYAN,"削除したい発言番号を入力してください。")
if ( VAL < 0 ) { mss_top_key(); return }
if ( ROOM = "" ) { mss_top_key(); return }
term_puts("RD \(ROOM)\r")
} else
{ mss_top_key()
}
} else if ( VAL = 12 ) /* SendMail
{ term_puts("SENDMAIL\r")
} else if ( VAL = 14 ) /* タイトル表示
{ menu2_select(x0,y0,"★発言タイトル表示",
"N:RTN 未読の発言",
"T:RT 指定の番号から",
"D:RS 指定の日付から"
)
if ( VAL < 0 ) { mss_top_key(); return }
if ( VAL = 0 )
{ CMD = "RTN";
} else if ( VAL = 1 )
{ menu_input("ROOM",80,x0,y0,C_CYAN,"発言番号は?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( ROOM = "" ) { mss_top_key(); return }
CMD = "RT \(ROOM)"
} else if ( VAL = 2 )
{ DATE = ""
menu_input("DATE",80,x0,y0,C_CYAN,"日付は?(例:91年8月22日 ⇒ 910822)")
if ( VAL < 0 ) { mss_top_key(); return }
if ( DATE = "" ) { mss_top_key(); return }
CMD = "RS \(DATE)"
}
ID = ""
menu_yes_no(x0,y0,C_YELLOW,"IDは検索しますか?")
if ( VAL > 0 ) /* Yes
{ menu_input("ID",80,x0,y0,C_CYAN,"検索するIDは?")
if ( VAL < 0 ) { mss_top_key(); return }
}
term_puts("\(CMD) \(ID)\r")
mss_top_key()
} else if ( VAL = 15 ) /* RC
{ menu_input("ROOM",80,x0,y0,C_CYAN,"何番の発言まで読んだことにしますか?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( ROOM = "" ) { mss_top_key(); return }
term_puts("RC \(ROOM)\r")
mss_top_key()
} else if ( VAL = 16 ) /* Break
{ /* [SHIFT]+[PF9] [PF4]
key("\\k6504\\k6000")
}
}
/*====================================================================
/* 電子掲示板 (LEVEL 23)
/*
mss_bul_cmd { /* LEVEL 23
mss_sysmes()
BUL = ""
PROM = "BBS>"
CHG = "BUL\r"
menu2_select(x0,y0,"BBS 電子掲示板",
"F:Forum フォーラムメニューに戻る", # 0
"R:Read 掲示を読む", # 1
"A:read All すべての掲示を読む", # 2
" ",
"C:Compose 掲示板に書き込む" # 4
"D:Delete 削除", # 5
"4:Sendmail メールを出す", # 6
" ",
"6:SCAN 検索", # 8
"B:Break 中断(ブレーク信号送出)" # 9
)
if ( VAL = 0 )
{ MENU_LEVEL = 21;
mss_top_key()
} else if ( VAL = 1 ) /* READ 一覧
{ CMD = "READ\r"
mss_chk_prompt()
mos_cursor(82) /* 時計カーソル
wait(1)
term_switch(30,">", "◆")
if ( VAL = 0 )
{ menu_input("BUL",80,x0,y0,C_CYAN,"読みたい掲示番号は?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( BUL = "") { mss_top_key(); return }
term_puts("\(BUL)\r")
}
mss_top_key()
} else if ( VAL = 2 ) /* READ ALL
{ CMD = "READ ALL\r"
mss_chk_prompt()
mss_top_key()
} else if ( VAL = 4 ) /* Compolse
{ CMD = "COM\r"
mss_chk_prompt()
} else if ( VAL = 5 ) /* Delete
{ menu_yes_no(x0,y0,C_YELLOW,"すべての掲示を削除しますか?")
if ( VAL > 0 )
{ CMD = "DELETE ALL\r"
} else
{ menu_input("BUL",80,x0,y0,C_CYAN,"削除する掲示番号は?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( BUL = "") { mss_top_key(); return }
CMD = "DELETE \(BUL)\r"
}
mss_chk_prompt()
} else if ( VAL = 6 ) /* Sendmail
{ term_puts("SENDMAIL\r")
} else if ( VAL = 8 ) /* 検索
{ CMD = "SCAN\r"
mss_chk_prompt()
} else if ( VAL = 9 ) /* Break
{ /* [SHIFT]+[PF9] [PF4]
key("\\k6504\\k6000")
}
}
/*====================================================================
/* データライブラリ (LEVEL 24)
/*
mss_lib_cmd { /* LEVEL 24
mss_sysmes()
PROM = "LIB>"
CHG = "E\r"
menu2_select(x0,y0,"データライブラリ",
"F:Forum フォーラムメニューに戻る" ,
"L:Lib ライブラリ一覧" ,
"X:Lib <X> 指定番号のライブラリに" ,
"D:Dir データ一覧表示" ,
" ",
"P:DonwLoad ダウンロード" ,
"U:Upload アップロード" ,
" ",
"6:Scan 検索" ,
"B:Break 中断(ブレーク送出送出)"
)
if ( VAL = 0 ) /* フォーラムコマンドに戻る
{ MENU_LEVEL = 21;
mss_top_key()
} else if ( VAL = 1) /* ライブラリ一覧
{ term_puts("LIB\r")
mss_top_key()
} else if ( VAL = 2 ) /* 指定のライブラリに
{ TITLE = "ライブラリ?"
mss_lib_select()
if ( LIB < 0 ) { mss_top_key(); return }
term_puts("LIB \(LIB)\r")
mss_top_key()
} else if ( VAL = 3 ) /* データ一覧 */
{ CMD = "DIR\r"
mss_chk_prompt()
mss_top_key()
} else if ( VAL = 5 ) /* ダウンロード
{ NO = ""
menu_input("NO",8,x0,y0,C_CYAN,"ダウンロードしたい番号?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( NO = "" ) { mss_top_key(); return }
term_switch(1,">")
if ( VAL = 0 )
{ DL_SET = 1;
DL_FILE = ""
syslin_puts(C_GREEN,C_MBLACK,"データライブラリ:ダウンロード")
mos_cursor(82) /* 時計カーソル
term_puts("\(NO)\r")
wait(5)
term_switch( 60,">")
if ( VAL < 0 ) { DL_SET = 0; return }
DL_SET = 0;
if ( DL_FILE ! "" )
{ /* ファイル名が設定されている */
FILE = ""
COUNT = 0;
while ( COUNT < 12 )
{ strmid("CH",DL_FILE,COUNT,1)
if ( CH = "" )
{ COUNT =12;
} else if ( CH ! " " )
{ FILE = "\(FILE)\(CH)"
}
inc(COUNT)
}
if ( FILE ! "" )
{ FILE = "\(_NIF_DOWN_PATH)\(FILE)"
syslin_puts(C_GREEN,C_MBLACK, "ダウンロードファイル名 : \(FILE)")
wait(10);
set_cbuf(FILE)
}
}
} else
{ mss_top_key()
}
} else if ( VAL = 6 ) /* アップロード
{ CMD = "UPLOAD\r"
mss_chk_prompt()
} else if ( VAL = 8 ) /* SCAN
{ KEY = ""
# menu_input("KEY",80,x0,y0,C_CYAN,"キーワードは?")
# if ( VAL < 0 ) { mss_top_key(); return }
# if ( KEY ! "" )
# { KEY = "KEY:\(KEY)"
# }
DATE = ""
menu_input("DATE",80,x0,y0,C_CYAN,"日付は?(例:91年8月22日 ⇒ 910822)")
if ( VAL < 0 ) { mss_top_key(); return }
if ( DATE ! "" )
{ DATE = "DATE:\(DATE)"
} else
{ DATE = "DATE:800101"
}
CMD = "SCAN \(KEY) \(DATE)\r"
mss_chk_prompt()
} else if ( VAL = 9 ) /* Break
{ /* [SHIFT]+[PF9] [PF4]
key("\\k6504\\k6000")
}
}
/*--------------------------------------------------------------------
/* データラブラリ選択サブルーチン
/* in: TITLE
/* out: LIB
/*
mss_lib_select {
menu_select(x0,y0,TITLE,
"-ライブラリ 1-",
"-ライブラリ 2-",
"-ライブラリ 3-",
"-ライブラリ 4-",
"-ライブラリ 5-",
"-ライブラリ 6-",
"-ライブラリ 7-",
"-ライブラリ 8-",
"-ライブラリ 9-",
"-ライブラリ10-"
)
LIB = VAL;
if ( LIB > -1 )
{ inc(LIB)
}
}
/*====================================================================
/* フォーラム案内 (LEVEL 25) リザーブ
/*
mss_ann_cmd {
}
/*====================================================================
/* リアルタイム会議室 (LEVEL 26)
/*
mss_rtc_cmd { /* LEVEL 26
mss_sysmes()
menu2_select(x0,y0,"RTC COMMAND",
"F:Forum command RTC 終了" ,
"I:Information 各種表示" ,
"J:/Job 自分のJOB 番号を表示",
"U:/U RTC 利用者を表示" ,
"H:/HA ハンドルを変更する" ,
" ",
"S:/SEnd SENDを送る" ,
"P:/Page ページ" ,
"N:Channel チャンネル" ,
"B:scramBle スクランブル" ,
"Q:/SQuelch 発言の抑制" ,
"E:/ECho エコーバック" ,
" ",
"X:/eXit NIFTY-Serveを終了する"
)
if ( VAL = 0 )
{ term_puts("/E\r")
MENU_LEVEL = 21;
mss_top_key()
} else if ( VAL = 1 ) /* 各種状態表示
{ menu2_select(x0,y0,"★RTC 状態表示",
"S:/Status RTC 利用者の人数" ,
"U:/UST フォーラム利用者",
"M:/Mchk メールボックス" ,
"T:/TIme 利用時間" ,
"W:/Who 相手の状態" ,
"P:/PRofile プロフィール"
)
if ( VAL = 0 ) { term_puts("/Status\r"); }
else if ( VAL = 1 ) { NIFTY_UST(1); }
else if ( VAL = 2 ) { term_puts("/MCHK\r"); }
else if ( VAL = 3 ) { term_puts("/TIME\r"); }
else if ( VAL = 4 ) /* Who 相手の状態
{ ID = ""
menu_input("ID",16,x0,y0,C_CYAN,"相手のJOB番号またはハンドル?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( ID = "" ) { mss_top_key(); return }
term_puts("/WHO \(ID)\r")
} else if ( VAL = 5 )
{ ID = ""
menu_input("ID",16,x0,y0,C_CYAN,"プロフィールを見たいID?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( ID = "" ) { mss_top_key(); return }
term_puts("/PROF \(ID)\r")
}
mss_top_key()
} else if ( VAL = 2 ) /* 自分のJOB
{ term_puts("/JOB\r")
mss_top_key()
} else if ( VAL = 3 ) /* /U ユーザー表示
{ NIFTY_RT_U()
} else if ( VAL = 4 ) /* /HA ハンドル変更
{ menu_input("MY_HANDLE",16,x0,y0,C_CYAN,"ハンドルは?")
if ( VAL < 0 ) { mss_top_key();return }
term_puts("/HA \(MY_HANDLE)\r")
} else if ( VAL = 6 ) /* /SEND
{ /* SEND_ID = ""
menu_input("SEND_ID",9,x0,y0,C_CYAN,"SEND先のID?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( ID = "" ) { mss_top_key(); return }
MSG = ""
menu_input("MSG",256,x0,y0,C_CYAN,"SEND メッセージ?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( MSG = "" ) { mss_top_key(); return }
term_puts("/SEND \(ID) \(MSG)\r")
} else if ( VAL = 7 ) /* /PAGE
{ /* JOB_NUM
menu_input("JOB_NO",4,x0,y0,C_CYAN,"相手のJOB 番号は?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( JOB = "" ) { mss_top_key(); return }
MSG = ""
menu_input("MSG",256,x0,y0,C_CYAN,"メッセージ?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( MSG = "" ) { mss_top_key(); return }
term_puts("/PAGE \(ID)\r\(MSG)\r")
} else if ( VAL = 8 ) /* チャンネル
{ menu2_select(x0,y0,"★チャンネル",
"1:/MON 1 モニタ 1 " ,
"2:/MON 2 モニタ 2 " ,
"U:/UNMon モニタ解除" ,
" ",
"A:/Channel 1 チャンネル変更 (1)",
"B:/Channel 2 チャンネル変更 (2)"
)
if ( VAL = 0 ) { term_puts("/MON 1\r"); }
else if ( VAL = 1 ) { term_puts("/MON 2\r"); }
else if ( VAL = 2 ) { term_puts("/UNMON\r"); }
else if ( VAL = 4 ) { term_puts("/CH 1\r"); }
else if ( VAL = 5 ) { term_puts("/CH 2\r"); }
else { mss_top_key(); }
} else if ( VAL = 9 ) /* スクランブル
{ menu2_select(x0,y0,"★スクランブル",
"S:/SCramble スクランブルモードに入る",
"U:/UNScramble スクランブルを解除"
)
if ( VAL = 0 )
{ CODE = ""
menu_input("CODE",16,x0,y0,C_CYAN,"スクランブルコードは?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( CODE = "" ) { mss_top_key(); return }
term_puts("/SC \(CODE)\r")
} else if ( VAL = 1 )
{ term_puts("/UNSC\r")
} else
{ mss_top_key()
}
} else if ( VAL = 10 ) /* 表示抑制
{ ID = ""
menu_input("ID",16,x0,y0,C_CYAN,"表示したくない相手のJOB番号またはハンドル?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( ID = "" ) { mss_top_key(); return }
term_puts("/SQ \(ID)\r")
} else if ( VAL = 11 ) /* ECHO
{ menu2_select(x0,y0,"★エコーバック",
"1:/ECHO ON エコーバックする",
"2:/ECHO OFF エコーバックしない"
)
if ( VAL = 0 ) { term_puts("/ECHO ON\r"); }
else if ( VAL = 1 ) { term_puts("/ECHO OFF\r"); }
else { mss_top_key(); }
} else if ( VAL = 13 ) /* NIFTY-Serve 終了
{ menu_yes_no(x0,y0,C_YELLOW," 本当に終了しますか? ")
if ( VAL > 0 )
{ mss_off()
} else
{ mss_top_key()
}
}
}
/*====================================================================
/* オプション (LEVEL 27)
/*
mss_opt_cmd {
mss_sysmes()
menu2_select(x0,y0,"オプション設定",
"F:Forum フォーラムメニューに戻る",
"M:Menu メニュー表示",
"P:Page ページ制御" ,
"N:Name 氏名変更" ,
"R:Room 会議室登録"
)
if ( VAL = 0 )
{ MENU_LEVEL = 21;
mss_top_key()
} else if ( VAL = 1 ) /* メニュー表示
{ mos_cursor(82) /* 時計カーソル
term_puts("1\r")
term_switch(30,":")
if ( VAL = 0 )
{ menu2_select(x0,y0,"★メニュー表示",
"1:行う",
"2:行わない",
" ",
"E:変更しない"
)
if ( VAL = 0 ) { term_puts("1\r"); }
else if ( VAL = 1 ) { term_puts("2\r"); }
else if ( VAL = 3 ) { term_puts("\r"); }
}
mss_top_key()
} else if ( VAL = 2 ) /* ページ制御
{ mos_cursor(82) /* 時計カーソル
term_puts("2\r")
term_switch(30,":")
if ( VAL = 0 )
{ menu2_select(x0,y0,"★ページ制御",
"1:行う",
"2:行わない",
" ",
"E:変更しない"
)
if ( VAL = 0 ) { term_puts("1\r"); }
else if ( VAL = 1 ) { term_puts("2\r"); }
else if ( VAL = 3 ) { term_puts("\r"); }
}
mss_top_key()
} else if ( VAL = 3 ) /* 氏名変更
{ mos_cursor(82) /* 時計カーソル
term_puts("3\r")
term_switch(30,":")
if ( VAL = 0 )
{ HANDEL = ""
bk = 0;
while ( bk = 0 )
{ menu_input("HANDLE",16,x0,y0,C_CYAN,"新しい氏名は?")
if ( VAL < 0 ) { HANDEL = ""; }
term_puts("\(HANDLE)\r")
term_switch(30,"確認")
if ( VAL = 0 ) /* 確認
{ menu_yes_no(x0,y0,C_YELLOW,"よろしいですか?")
if ( VAL > 0 )
{ term_puts("1\r")
bk = 1;
} else
{ term_puts("2\n") /* NG
}
} else
{ bk = 1;
}
}
}
mss_top_key()
} else if ( VAL = 4 ) /* 会議室登録
{ syslin_puts(C_GREEN,C_MBLACK,"OPT : 会議室登録")
mos_cursor(82) /* 時計カーソル
term_puts("4\r")
term_switch(30,":")
if ( VAL = 0 )
{ bk = 0;
ROOM_BIT = 0; /* 読む会議室のビットがセットされる
while ( bk = 0 )
{ _NIF_MESsub_makeObj()
menu_select(512,32,"会議室選択",
"すべての会議室",
D01,D02,D03,D04,D05,D06,D07,D08,D09,D10,
D11,D12,D13,D14,D15,D16,D17,D18,D19,D20,
" 実行"
)
if ( VAL < 0 )
{ CMD = "";
bk = 1;
} else if ( VAL = 0 )
{ /* mread all */
CMD = "ALL";
bk = 1;
} else if ( VAL < 21 )
{ TMP = VAL;
dec(TMP)
expr("BIT","1<<\(TMP)")
expr("ROOM_BIT","\(ROOM_BIT)^\(BIT)") /* ビット反転 */
} else if ( VAL = 21 )
{ /* 実行 */
if ( ROOM_BIT = 0 )
{ CMD = ""
} else
{ ROOM = ""
COUNT = 0;
FLG = 0;
while ( COUNT < 20 )
{ expr("BIT","1<<\(COUNT)")
expr("TMP","\(ROOM_BIT)&\(BIT)")
if ( TMP ! 0 )
{ NO = COUNT;
inc(NO) /* 会議室番号 */
if ( FLG = 0 )
{ ROOM = "\(ROOM)\(NO)"
FLG = 1;
} else
{ ROOM = "\(ROOM),\(NO)"
}
}
inc(COUNT)
}
CMD = "\(ROOM)"
}
bk = 1;
}
}
term_puts("\(CMD)\r")
}
mss_top_key()
}
}
/*********************************************************************
/* ホームパーティ・メニュー (LEVEL 30)
/*
mss_hp_menu {
mss_sysmes()
if ( _HP1_ID ) { _HP1_ID = "-未定義-"; }
if ( _HP2_ID ) { _HP2_ID = "-未定義-"; }
if ( _HP3_ID ) { _HP3_ID = "-未定義-"; }
if ( _HP4_ID ) { _HP4_ID = "-未定義-"; }
menu2_select(x0,y0, "ホームパーティ",
"9:top menu トップメニューに戻る",
"G:Guest アクセス状況表示" ,
"T:Title タイトル表示" ,
"N:read New 未読メッセージを読む",
"M:Move 別のHPに移動する" ,
" ",
"H:myHP 自分のHP" ,
"1:\(_HP1_ID) \(_HP1_MSG)" ,
"2:\(_HP2_ID) \(_HP2_MSG)" ,
"3:\(_HP3_ID) \(_HP3_MSG)" ,
"4:\(_HP4_ID) \(_HP4_MSG)" ,
" ",
"S:Setup 利用するHPの設定" ,
"W:Write 書き込み" ,
"B:Break 中断(ブレーク信号送出)"
)
if ( VAL = 0 )
{ MENU_LEVEL = 0;
mss_top_key()
} else if ( VAL = 1 )
{ /* Guest */
term_puts("GUEST\r")
mss_top_key()
} else if ( VAL = 2 )
{ /* Title */
term_puts("TITLE\r")
mss_top_key()
} else if ( VAL = 3 )
{ /* read New */
term_puts("READ NEW\r")
mss_top_key()
} else if ( VAL = 4 )
{ /* Move */
mos_get("sw","x","y")
menu_input("HP_ID",9,x,y,C_CYAN, "移動したいHPのIDは?")
if ( VAL < 0 ) { return }
term_puts("MOVE \(HP_ID)\r")
mss_top_key()
} else if ( VAL = 6 ) /* 自分のHP
{ term_switch(1,":")
if ( VAL < 0 )
{ term_puts("GO HP\r");
syslin_puts(C_GREEN,C_MBLACK,"HP:")
mos_cursor(82) /* 時計カーソル
wait(3)
term_switch(30,">")
if ( VAL < 0 ) { return }
term_puts("1\r")
term_switch(30,":")
if ( VAL < 0 ) { return }
}
term_puts("\r")
mss_top_key()
} else if ( VAL = 7 ) /* 他のHP [1]
{ HP_ID = _HP1_ID;
HP_PW = _HP1_PW;
mss_hp_sub_1()
mss_top_key()
} else if ( VAL = 8 ) /* 他のHP [2]
{ HP_ID = _HP2_ID;
HP_PW = _HP2_PW;
mss_hp_sub_1()
mss_top_key()
} else if ( VAL = 9 ) /* 他のHP [3]
{ HP_ID = _HP3_ID;
HP_PW = _HP3_PW;
mss_hp_sub_1()
mss_top_key()
} else if ( VAL = 10 ) /* 他のHP [4]
{ HP_ID = _HP4_ID;
HP_PW = _HP4_PW;
mss_hp_sub_1()
mss_top_key()
} else if ( VAL = 12 ) /* HPの設定
{ mss_hp_set()
mss_top_key()
} else if ( VAL = 13 )
{ term_switch(1,":")
if ( VAL = 0 )
{ MSG = "ここでは書き込みできません"
host_err()
mss_top_key()
} else
{ term_puts("WRITE\r")
}
} else if ( VAL = 14 ) /* Break
{ /* [SHIFT]+[PF9] [PF4]
key("\\k6504\\k6000")
}
}
mss_hp_set {
if ( _HP1_ID ) { _HP1_ID = "-未定義-"; }
if ( _HP2_ID ) { _HP2_ID = "-未定義-"; }
if ( _HP3_ID ) { _HP3_ID = "-未定義-"; }
if ( _HP4_ID ) { _HP4_ID = "-未定義-"; }
menu2_select(x0,y0,"★設定するHPは?",
"1:\(_HP1_ID) \(_HP1_MSG)",
"2:\(_HP2_ID) \(_HP2_MSG)",
"3:\(_HP3_ID) \(_HP3_MSG)",
"4:\(_HP4_ID) \(_HP4_MSG)"
)
if ( VAL = 0 )
{ HP_ID = _HP1_ID;
HP_PW = _HP1_PW;
HP_MSG = _HP1_MSG;
mss_hp_set_sub()
if ( VAL < 0 ) { return }
_HP1_ID = HP_ID;
_HP1_PW = HP_PW;
_HP1_MSG = HP_MSG;
} else if ( VAL = 1 )
{ HP_ID = _HP2_ID;
HP_PW = _HP2_PW;
HP_MSG = _HP2_MSG;
mss_hp_set_sub()
if ( VAL < 0 ) { return }
_HP2_ID = HP_ID;
_HP2_PW = HP_PW;
_HP2_MSG = HP_MSG;
} else if ( VAL = 2 )
{ HP_ID = _HP3_ID;
HP_PW = _HP3_PW;
HP_MSG = _HP3_MSG;
mss_hp_set_sub()
if ( VAL < 0 ) { return }
_HP3_ID = HP_ID;
_HP3_PW = HP_PW;
_HP3_MSG = HP_MSG;
} else if ( VAL = 3 )
{ HP_ID = _HP4_ID;
HP_PW = _HP4_PW;
HP_MSG = _HP4_MSG;
mss_hp_set_sub()
if ( VAL < 0 ) { return }
_HP4_ID = HP_ID;
_HP4_PW = HP_PW;
_HP4_MSG = HP_MSG;
}
}
mss_hp_set_sub {
if ( HP_ID = "-未定義-" ) { HP_ID = ""; }
menu_input("HP_ID",9,x0,y0,C_CYAN,"HP設定:IDは?")
if ( VAL < 0 ) { return (-1); }
if ( HP_ID = "" ) { return (0); } /* 登録解除
menu_input("HP_PW",9,x0,y0,C_CYAN,"HP設定(ID:\(HP_ID)):パスワードは?")
if ( VAL < 0 ) { return (-1); }
if ( HP_PW = "" ) { return (-1); }
menu_input("HP_MSG",20,x0,y0,C_CYAN,"HP設定(ID:\(HP_ID)):タイトルメッセージ?")
if ( VAL < 0 ) { return (-1); }
return (0);
}
mss_hp_sub_1 { /* in:HP_ID, HP_PW
syslin_puts(C_GREEN,C_MBLACK,"HP:")
mos_cursor(82) /* 時計カーソル
if ( HP_ID = "-未定義-" ) { return; }
term_switch(1,"HP>",":")
if ( VAL = 0 )
{ /* HP> */
term_puts("MOVE \(HP_ID)\r")
} else
{ if ( VAL < 0 )
{ term_puts("GO HP\r");
wait(3)
term_switch(30,">")
if ( VAL < 0 ) { return }
term_puts("1\r")
term_switch(30,":")
if ( VAL < 0 ) { return }
}
term_puts("\(HP_ID)\r")
term_switch(30,"◆パスワードが間違っています◆","パスワード")
if ( VAL < 0 ) { return }
}
term_switch(30,":")
if ( VAL < 0 ) { return }
term_puts("\(HP_PW)\r")
}
/*********************************************************************
/* サービスメニュー (LEVEL 40)
/*
mss_service_menu {
mss_sysmes()
menu2_select(x0,y0,"サービス",
"9:top menu トップメニューに戻る" ,
"F:FIND 検索サービス" ,
"B:Bill 課金を調べる" ,
"M:Member 会員情報" ,
"P:Phone FENICS AP 電話番号一覧"
)
if ( VAL = 0 )
{ MENU_LEVEL = 0;
mss_top_key()
} else if ( VAL = 1 ) /* FIND
{ KEY = ""
menu_input("KEY",16,x0,y0,C_CYAN,"検索したいキーワードは?")
if ( VAL < 0 ) { mss_top_key(); return }
if ( KEY = "") { mss_top_key(); return }
term_puts("FIND \(KEY)\r")
} else if ( VAL = 2 ) /* 課金表示
{ term_puts("GO BILL\r")
wait(1)
menu_yes_no(x0,y0,C_CYAN,"利用状況を表示しますか?")
if ( VAL > 0 )
{ term_puts("1\r")
wait(1)
mos_cursor(82) /* 時計カーソル
term_switch(30,">")
if ( VAL = 0 )
{ menu_yes_no(x0,y0,C_CYAN,"日毎情報を表示しますか?")
if ( VAL > 0 )
{ term_puts("\r")
wait(1)
}
}
}
mss_top_key()
} else if ( VAL = 3 ) /* 会員情報
{ term_puts("GO MEMBER\r")
} else if ( VAL = 4 ) /* FENICS AP 電話番号一覧
{ term_puts("GO PHONE\r")
}
}